home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 1.0 for Developers / QuickTime 1.0 for Developers.iso / Open Me First! / Stack Browser / Stack Browser / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-09-11  |  1KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>4249</cardID>
  8.     <listID>2517</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>224</width>
  14.         <height>312</height>
  15.     </cardSize>
  16.     <script>function ExtractFileName FileNameput ":" into Delimiterif Delimiter is in FileName thenrepeat with CharPos = length(FileName) down to 1if char CharPos of FileName = Delimiterthen return char CharPos+1 to length(FileName) of FileNameend repeatreturn emptyelsereturn FileNameend ifend ExtractFileNamefunction ExtractPathName FileNameput ":" into Delimiterrepeat with CharPos = length(FileName) down to 1if char CharPos of FileName = Delimiterthen return char 1 to CharPos of FileNameend repeatreturn emptyend ExtractPathName</script>
  17.     <background id="3650" file="background_3650.xml" name="" />
  18.     <card id="4249" file="card_4249.xml" marked="false" name="" owner="3650" />
  19. </stack>
  20.